DeleteVDir "contoso"
DeleteVDir "fabrikam"
DeleteVDir "litware"
DeleteVDir "litwarehr"
DeleteVDir "services.litwarehr"

Sub DeleteVDir(vDirName)
    'Set Dir = GetObject("IIS://LocalHost/W3SVC/1/ROOT/" & vDirName)
    'Dir.AppDelete()
    Set Root = GetObject("IIS://LocalHost/W3SVC/1/ROOT")
    Root.Delete "IIsWebVirtualDir", vDirName
End Sub